      subroutine readmgtcn2(mgtfile_name)

      use parm
      character (len=*) ::  mgtfile_name
      character (len=80) :: titldum

      webs_mgt_cn2 = 0.0

      open (109,file=mgtfile_name)
      read (109,5000) titldum
      read (109,5000) titldum
      read (109,5000) titldum
      read (109,5000) titldum
      read (109,5000) titldum
      read (109,5000) titldum
      read (109,5000) titldum
      read (109,5000) titldum
      read (109,5000) titldum
!     read (109,*) curyr_mat(ihru)
      read (109,5000) titldum
      read (109,*) webs_mgt_cn2
      close(109)

      return
 5000 format (a)

      end
